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IDENTIFICATION 
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MAINTAINER: DIAGNOSTICS-MERRIMACK 


AUTHORS : ED BADGER 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
DIGITAL EQUIPMENT CORPORATION ASSUMES 

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT. 


S PROGRAM IS DESIGNED AS A MAINTENANCE AID FOR 
IT WILL VERIFY THE PROPER OPERATION 
OF A COMPLETE C PDP-11 
SYSTEM TO ANOTHER OR TO A COMMUNICATION TEST CENTER. 


THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE INTERPROCESSOR 
TEST PROGRAM(DZITP) ON A PDP=11 SYSTEM WITH A DL=-11 INTERFACE. 


:: JMPORTANT:: 


PLEASE NOTE: THIS OVERLAY REQUIRES A SYSTEM TO HAVE 8K OF at ae 
ALSO KCM-11 MAY TALK TO A DMC-11. ALSO THE DMC-11 MA 
TALK TO THIS OVERLAY. PARAM #1 MUST BE SET UP TO REFLECT 
WHICH VERSION OF MICRO-CODES YOU WISH TO RUN. SET PARAM #1 = 
AN OCTAL 1 FOR HIGH SPEED MICRO-CODE (USE WITH M8202 LINE UNIT). 
SET PARAM #1 - AN OCTAL 0 FOR LOW SPEED MICRO-CODE (USE WITH 
M8201 LINE UNIT). 


REQUIREMENTS. 
EQUIPMENT 


A. aya SYSTEM WITH 8K OF MEMORY. 
B. A KMC11 COMMUNICATION INTERFACE. 


STORAGE . 
4K OF CORE 


LOADING PROCEDURE 
THIS PROGRAM IS _ IN ABSOLUTE FORMAT. 
THE ABS LOADER MUST BE USED TO LOAD THE PROGRAM. 


OPERATING PROCEDURES. 


A. TWO METHODS OF ENTERING PARAMETERS ARE PROVIDED 
1. LOAD ADDRESS 200 AND START TO ENTER PARAMS FROM oeeee TTY, PROCEED TO SECTION B. 
2. LOAD ADDRESS 200 AND SET SWITCH REGISTER BIT 15 BEFOR 
STARTING TO ENTER PARAMS FROM CONSOLE SWITCHES, PROCEED 10 SECTION C. 
*THE PROGRAM MAY BE RESTARTED AT LOC 204 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) 


CONSOLE DIALOGUE PARAMETER INPUT (CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY) 
1. THE PROGRAM WILL _TYPEOUT THE NAME OF THE VARIABLE OVERLAY. 

A. IF YOU WISH TO SETUP JUST THE INDICATED OVERLAY, TYPE A CARAGE RETURN 

B. IF YOU WISH TO SETUP A DN11, TYPE IN DN. 

C. IF YOU WISH TO SETUP A DM11BB, TYPE IN DMB. 


IF DN OR DMB WAS TYPED IN STEP 1 ABOVE THEN THE BUS ADDRESS 
VECTOR ETC. REFERED TO IN STEPS 2 THRU 7, PERTAIN TO THE DN11 OR DMBB. 


THE PROGRAM WILL TYPE THE DEFAULT BUS ADDRESS OF THE INTERFACE UNDER TEST. 
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A. TYPE A CAR. RETURN TO USE DEFAULT BUS ADDRESS 
B. TYPEIN ACTUAL BUS ADDRESS 


THE PROGRAM WILL TYPE OUT THE DEFAULT VECTOR ADDRESS 
A. TYPE A CAR. RETURN TO USE DEFAULT ADDRESS 
B. TYPEIN ACTUAL VECTOR ADDRESS 


THE PROGRAM WILL TYPE oar THE DEFAULT INTERFACE PRIORITY 
NOTE: 200=PRIO 4, 240=PRIO 5, 300=PRIO 6, ETC. 

A. TYPE A CAR. RETURN 10 use DEFAULT VALUE 

B. TYPEIN ACTUAL VALUE 


THE PROGRAM WILL TYPEOQUT THE DEFAULT VALUE OF PARAM#1 

IF REQUIRED BY THE ISR.(SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 
A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 

B. TYPEIN ACTUAL VALUE 


THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#2 
IF 2 a BY THE ISR. 
A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 
B. ENTER ACTUAL VALUE 


THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#3 
IF REQUIRED BY THE OVERLAY. 
A. TYPE A CAR. RETURN re USE Pang VALUE 


IF USING A MODEM WITHOUT AUTOMATIC HANDSHAKING, 
THE NUMBER MUST TERMINATE WITH A 
"'END-OF ~NUMBER'’ CHARACTER (:). 

B. ENTER ACTUAL VALUE. 


THE PROGRAM WILL RETURN TO STEP B81 IF THIS SETUP 
WAS FOR DN11 OR DM1188. 


THE PROGRAM WILL REQUEST THAT SWITCH REGISTER BE SET. 
A. dg SWITCH REGISTER AS SPECIFIED IN STEP D. 
AND TYPE A CAR. RETURN. 


NOTE: IF ANY OF THE ABOVE ITEMS 2 THRU 7 WERE CHANGED BY ENTERING 
NEW VALUES,THE NEW VALUE BECOMES THE DEFAULT VALUE FOR SUBSEQUENT 
RESTARTS OF THE PROGRAM. 
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C. MANUAL PARAMETER INPUT FROM SWITCH REGISTER 
1. THE PROGRAM HALTS FOR ISRCINTERFACE SERVICE ROUTINE) SPECIFICATION 
SWR14=SE UP DM-11B ISR 
SWR13=SETUP DN-11 ISR 
SWR=000000=SETUP VARIABLE ISR 


2. THE FOLLOWING HALTS ARE REPEATED FOR EACH ISR SPECIFIED. 
SETUP SEQUENCE IS: DN11,DM11-88 THEN VARIABLE OVERLAY. (EACH ENTRY SET SWICHES THEN HIT CONTINUE.) 
A. HALT FOR BUS ADDRESS OF INTERFACE 
HALT FOR VECTOR ADDRESS OF INTERFACE 
HALT FOR PRIORITY OF INTERFACE 
HALT FOR INTERFACE PARAM #1 (SEE SECT. B 0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 


. HALT FOR INTERFACE PARAM #2 (DN11 AND D PARAMETERS ARE DISCUSSED IN SECT. 10.0 OF THE MONITOR. 
- GO BACK TO STEP A IF THIS SETUP WAS FOR DN DN OR DMB. 


HALT FOR OPERATIONAL SWITCH SETTINGS. (SEE STEP D.) 
A. PRESS CONTINUE TO START TESTING 


BEFORE ATTEMPTING TO RUN THIS PROGRAM, THE OPERATOR MUST 
ACCERTAIN THE COMPLETE COMMUNICATION LOOP AND PROCEEDURES 

TO BE USED, INCLUDING THE TYPE OF MODEMS, THE TYPE OF 

INTERFACE BEING USED AT THE OTHER CPU AND THE MODES OF OPERATION, 
DATA AND PARAMETERS TO BE USED AT EACH CPU. 


THIS WILL REQUIRED VOCAL COMMUNICATION WITH THE OPERATOR 
AT THE OTHER CPU UNLESS ITS CONFIGURATION AND OPERATION 
ARE FIXED AS A TEST CENTER. 


AFTER DETERMINING THAT THE EQUIPMENTS ARE COMPATIBLE AND 
AGREEING ON THE MODE AND VARIABLE PARAMETERS TO BE USED, 

THE SYSTEM WHICH IS TO RECEIVE DATA FIRST SHOULD B 

LOADED AND STARTED. IF THE MODEM BEING USED ON THIS SYSTEM 
HAS AN AUTOMATIC ANSWER FEATURE, IT SHOULD BE ENABLED 


THE SYSTEM WHICH IS TO TRANSMIT FIRST SHOULD THEN BE LOADED 
AND STARTED AND THE CONNECTION ESTABLISHED EITHER MANUALLY 
OR AUTOMATICALLY (VIA DN-11). 
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D. OPERATIONAL SWITCH SETTINGS. 
af ERROR 


E PASS 
SW14 HAS NO EFFECT IF -o/. 0 
swi3=1 INHIBIT ERROR TYPEOUTS 
SW12=1 INHIBIT ALL TYPEOQUTS EXCEPT ERRORS 
IF SwW12=0 AND SWO4=1 END PASS IS TYPED 
AND TRANSMITTED/RECEIVED DATA IS TYPED. 
SW11=1 USE PREVIOUSLY SPECIFIED DATA 
SW10=1 DATA SELECT (WITH SWO9) 
SWO9=1 DATA SELECT (WITH SW10) 
00=1 GET DATA FROM OPERATOR 
=1 TEST MESSAGE #1 ($A QUICK BROWN FOX) 
10=1 TEST MESSAGE #2 ($8 NUMERICS) 
11=1 TEST MESSAGE #3 ($C COMTEST/QUICK BROWN FOX/NUMERICS) 
SWO8=1 TRANSMIT RECEIVED ee on LOOPBACK MODE) 
SwO7=1 DO NOT TEST RECEIVED DAT. 
SWO6=1 MONITOR TRANSMITTED DATA. ON CONSOLE TTY.* 
SWO5=1 MONITOR RECEIVED aa ON CONSOLE TTY.* 
IN MANY CASES, NOT ALL DATA WILL APPEAR ON THE CONSOLE 
THE COMM INTERFACE IS 
HE CONSOLE, BUT EVEN AT EQUAL 
OR SLOWER BAUDS, ALL CHARACTERS MAY NOT APPEAR ON THE CONSOLE. 


SWO4=1 RETURN TO MONITOR FOR END PASS 
WHEN SWO4= 


0 PROGRAM LOOPS IN THE OVERLAY NEVER RETURNING TO THE MONITOR. 
SWO3=1 INTERNAL LOOPBACK MODE 


SWOO=1 ONE-WAY-OUT MODE 
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y IS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
HARDWARE gh REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF a! FOUND A 
SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. 
IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(IE) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 


Ve <CR> IF NO CHANGES ARE TO BE MADE 

2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 
VALUE ;LAST DIGIT FOLLOWED BY <CR>. 

3. “U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 
KEYING IN SWREG VALUE. 


BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G 

(CNTL_G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. 


IF OPERATOR SPECIFIED DATA WAS INDICATED, THE PROGRAM WILL TYPE A 
REQUEST FOR THE DATA. DATA MAY BE ENTERED AS ASCII CHARACTERS OR OCTAL CODE. 
TYPE IN THE DATA TERMINATED WITH A CR. OCTAL CODE MAY BE ENTERED BY TYPING AN 
UP ARROW) FOLL TO 377) 
SEPERATED BY SPACES AND TERMINATED BY “(UP ARROW) 
I1.—. ABCD* 000 123 377* EFG (CAR.RETURN) 


A TYPICAL SWITCH SETTING FOR HALF-DUPLEX=003150 THIS SETTING USES 
INTERNAL LOOPBACK MODE, LOOPS IN OVERLAY, MONITORS TRANSMITTED AND RECEIVED 
DATA ON THE CONSOLE TTY, AND TESTS RECEIVED DATA USING TEST MESSAGE 43. 


A TYPICAL SWITCH SETTING FOR FULL~DUPLEX=003144 THIS SETTING 
IS THE SAME AS ABOVE EXCEPT IT USES THE EXTERNAL LOOPBACK MODE. 


ALL STANDARD MESSAGES(TEST MESSAGES 1-3) ARE PRECEDED BY 2 FILL CHARACTERS(177), 
AND ARE FOLLOWED BY A CR(015), LF(012) RECEIVE TERMINATING CHARACTER(001), 

4 FILLS(177), AND A TRANSMIT TERMINATING CHARACTER(000). DURING TRANSMISSION, 
WHEN A 000 CHARACTER IS SEEN THE TRANSMISSION IS STOPPED.DURING RECEPTION, 

WHEN A 001 CHARACTER IS RECEIVED, THE RECEIVER IS SHUT OFF 

IF THE MESSAGE WAS INPUTED BY THE OPERATER, THE TERMINATING CHARACTERS ARE ADDED. 
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TEST MODES 
INTERNAL LOOPBACK MODE 


1. THE OVERLAY WAITS TO RECEIVE A MESSAGE (TERMINATED BY <001>) 
2. VERFIES THE DATA AGAINST THE DATA SELECTED BY SWO9 AND SW10(SW7=0) 
3. TRANSMIT THE DATA SELECTED BY SWO9 AND SW10 (SW8=0) OR 
TRANSMIT THE RECEIVED DATA (SW8=1) 
4. RETURNS TO MONITOR FOR ‘END PASS’’ (SW4=1) OR 
GO TO STEP 1. (SW4=0) 


EXTERNAL LOOPBACK MODE 


THE OVERLAY SETS REQUEST TO SEND 
OR AR T ND 


RESETS REQUEST TO SEND 

WAIT FOR MESSAGE TO BE RECEIVED 

VERIFIES THE DATA (SW07=0) 

RETURNS TO MONITOR FOR ‘END PASS'’. (SWO04=1) OR 
GO TO STEP 1(SW04=0) 


ONE-WAY-IN MODE 


THE OVERLAY WAITS FOR MESSAGE TO BE RECEIVED. 
VERIFIES THE DATA(SWO7=0) 

RETURNS TO MONITOR FOR ‘END PASS''(SW04=1) OR 
GO TO STEP 1 (SW04=0) 


ONE-WAY-OUT MODE 
THE OVERLAY SETS REQUEST TO SEND 
TO eee 


T TOR FOR “END PASS'’. (SWO4=1) OR 
GO TO STEP 1 (SW04=0) 


E. THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER 
MANUALLY OR AUTOMATICALLY. 


IF ONE-WAY-IN OR INTERNAL LOOPBACK MODES ARE SELECTED. 
THE OVERLAY WILL SET DATA TERMINAL READY AND WAIT FOR DATA. 


IF ONE-WAY-OUT OR EXTERNAL LOOPBACK MODES WERE SELECTED. 
THE OVERLAY WILL SET DATA TERMINAL READY AND REQUEST TO SEND. 
Ay a THEN WAIT FOR CLEAR TO SEND BEFORE ATTEMPTING TO 


THE PROGRAM WILL PRINTOUT A ‘WAITING FOR CLEAR TO SEND*’ 
MESSAGE AND THE CONTENTS OF THE XMIT CSR EVERY 60 SECS. 
UNTIL CLEAR TO SEND IS ASSERTED. 
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F. IF SWO4=0 THE OVERLAY WILL CONTINUE TO 
TRANSMIT/RECEIVE DATA. 


IF SWO4=1 THE OVERLAY WILL RETURN 
TO THE MONITOR AND TYPE ‘END PASS". 


IF BOTH SWO4=1 AND SW14=1, THE PROGRAM WILL REQUEST 
5 yl PARAMS AFTER ONE PASS OF THE SELECTED 


TEST EXECUTION MAY BE Yi es BY TYPING THE FOLLOWING 
CHARACTERS ON THE CONSOLE TTY 
LINE FEED = RESTART PROGRAM AT LOCATION 200. 
QUESTION MARK = PRINTOUT FIRST 8 WORDS OF INPUT BUFFER. (ASCII) 
THEN TYPE EITHER: 
*WAXAXAX TO PRINTOUT THE 8 WORDS 
AT LOC XXXXXX. 


*BXXXXXX TO PRINTOUT THE 16 BYTES 
AFTER LOC XXXXXX. 


*C TO CONTINUE 


PROGRAM MUST BE RESTARTED AT 200 AFTER PRINTING. 
CARRIAGE RETURN = RESTART AT REQUEST FOR NEW OPERATIONAL SWITCHES. 


PROGRAM AND/OR OPERATOR ACTION 


IF THE OPERATOR WISHES TO MANUALY EXAMINE THE TRANSMIT OR RECEIVE 
BUFFERS, DO THE FOLLOWING; TO FIND THE STARTING ADDRESS OF THE RECEIVE 
BUFFER, LOAD ADDRESS 11020 AND EXAMINE. TO FIND THE STARTING ADDRESS 
OF THE TRANSMIT BUFFER, LOAD ADDRESS 11022 AND EXAMINE. 


NORMAL HALTS 
SEE SECTION 4. 


ERRORS 
ERROR REPORTING 


THE ONLY ERROR REPORT FROM THE CONTROL PROGRAM OCCURS IF THE 
INTERFACE SPECIFIED IS NOT LOADED. 


IF DATA_IS RECEIVED AND SWITCH 7 (NO DATA COMPARE) 

IS RESET, THE DATA WILL BE COMPARED AGAINST THE gst Te 
DATA AFTER A LINE FEED CHARACTER IS RECEIVED. IF THERE IS 
MISMATCH, THE FOLLOWING ERROR REPORT IS PRINTED: 


RECEIVED reese: 
DATA SHOULD BE T 
DATA COMPARE ERROR: "aap DATA=88B GOOD DATA=GGG 


WHERE RRRRRR IS THE RECEIVE BUFFER (UP TO 512 CHARACTERS) 
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TTTTTT IS THE TRANSMIT BUFFER (UP TO 512 CHARACTERS) 
BBB IS THE BAD DATA CHARACTER 
GGG IS THE GOOD DATA CHARACTER 


IF THE INTERFACE DETECTS A DATA ERROR, THE FOLLOWING 
WILL BE PRINTED BEFORE THE DATA IS COMPARED: 


THERE WAS A RECEIVER ERROR. RECEIVER DATA REGISTER =XXXXXX 


WHERE XXXXXX IS THE CONTENTS OF THE RECEIVER DATA REGISTER 
THE LOW BYTE IS THE DATA, AND THE HIGH BYTE IS THE ERROR BITS. 


IF A RECEIVE TERMINATING CHARACTER<001> IS NOT DETECTED 
WITHIN 512 CHARACTERS A ‘BUFFER FULL*’ PRINTOUT WILL OCCUR. 
RESTRICTIONS 

THE OPERATION OF THIS PROGRAM OF ANOTHER PDP<11 SYS — 


S ALWAYS OPERA 
MODE. THE FOLLOWING TABLE LISTS THE VALID COMBINATIONS: 


EXTERNAL ~LOOPBACK INTERNAL ~LOOPBACK 
INTERNAL ~LOOPBACK EXTERNAL ~LOOPBACK 
EXTERNAL LOOPBACK EXTERNAL~LOOPBACK (FULL DUPLEX) 


WHEN THE COMMUNI CATION LINK INVOLVES MODEMS THE FOLLOWING 
RESTRICTION APPLY: 


IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS 
MUST BE IN EXTERNAL LOOP BACK MODE. 


80TH SYSTEMS SHOULD BE RUNNING IDENTICAL ROUTINES. 
SWITCHES 14,13,7,4 SHOULD BE THE SAME 
ON BOTH CPU'S 


IF, PROGRAM IS WAITING IN A SCAN ROUTINE AND TYPES OUT 
WAITING MESSAGE’',IF AN INCOMING MESSAGE STARTS DURING 
THE TYPE OUT, IT WICL Be LOST BECAUSE THE TYPEOUT PRIORITY 

IS AT LEVEL 7. THIS WILL RESULT IN OVERRUN OR SILO OVER- 
RUN ERRORS. DEPENDING ON THE DEVICE.TO AVOID THIS SITUATION 
RUN WITH SWITCH 13 UP. IF OVERRUN DOES OCCURE DURING A 
TYPEOUT THE PROGRAM SHOULD BE RESTARTED. 


IF USING AN ASYNCRONOUS DEVICE, MODEMS AND THE 

MAYNARD TEST STATION AND INITALIZE DOES NOT CLEAR THE 
CONNECTION (EXAMPLE THE DJ11) IF THE PROGRAM IS RESTARTED 
bo THE MIDDLE OF A MESSAGE AT LOC 204 OR BY HITTING CR 
AN IMMEDEATE ERROR MES 


MME SAGE FROM MAYNARD WILL BE RE- 
CEIVED. THIS IS BECAUSE THE TEST STATION IS STILL LOOKING 
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FOR THE REST OF THE INTERUPTED MESSAGE. TO AVOID THIS 
ERROR , RESTART PROGRAM ONLY AT THE END OF THE MESSAGE 
CURRENTLY BEING TRANSMITTED. 


MISCELLANEOUS 


ITEP WAS CHECKED OUT USING THE FOLLOWING BELL TELEPHONE MODEMS. 
208A (SYNCHRONOUS 4800 BAUD) 


PROGRAM DESCRIPTION 


THE KMC11_ INTERFACE SERVICE PARAMS ARE SETUP, AS SPECIFIED BY THE OPERATOR, 
BY THE ITEP CONTROL PROGRAM. 


TIME: PROVIDES A MEANS OF MEASURING ELASPED TIME. IT IS INCREMENTED 
EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN ITEP. 


WHEN THE OVERLAY IS FIRST ENTERED BY is AT _‘OCATION START:, 
THE CONTENTS OF THE SWITCH REGISTER ARE STORE. IN REGISTER 0. 
THE MODE AND DATA SELECTIONS ARE FIXED AT THIS TIME AND CANNOT 
BE ALTERED WITHOUT RETURNING TO THE CONTROL PROGRAM. 

THE INTERRUPT VECTORS AND VARIABLES ARE THEN SETUP. 

THE SELECTED ROUTINE DETERMINED BY THE MODE IS THEN ENTERED 


NEXT, THE MICRO-CODE TO LOAD INTO THE KMC-11 CRAM. AFTER LOAD, 
THE CRAM IS VERIFIED AGAINST THE MICRO-CODE IN PDP-11 MEMORY. 
IF A BAD LOAD, THE PROGRAM ry REPORT 


AN ERROR AND CONTINUE. 
EITHER LOW SPEED MOCRO-CODE HIGH SPEED MICOR-CODE WILL BE 
LOADED, DEPENDED ON THE CONTENTS OF PARAM #2. 


THE OVERLAY THEN LOOPS IN ROUTINES: SOWI ,IF ‘ONE WAY IN’’ MODE 
WAS SELECTED. SOWO,IF ‘ONE WAY OUT’' MODE WAS SELECTED. 

$ILB, IF *"INTERN4L LOOP BACK’’ MODE WAS SELECTED. 

$XLB,IF “EXTERNAL LOOP BACK’’ WAS SELECTED. 


SOWI: IN THIS ROUTINE THE RECEIVER IS INITIALIZED AND PROGRAM 
LOOPS WAITING FOR THE RECEIVER TO FINISH.IF NOTHING IS RECEIVED 
FOR 60 SECS A "WAITING'’ MESSAGE IS TYPED. WHEN THE RECEIVER IS 
DONE, THE PROGRAM CHECKS DATA IF SWITCHES PERMIT,AND TYPES END 
PASS DEPENDING ON SWITCH SETTINGS. 


SOWO: THE TRANSMITTER IS yin AND PROGRAM LOOPS 
WAITING FOR TRANSMITTER TO FINISH,A ‘WAITING’ MESSAGE IS TYPED 
EVERY 60 SECS IF THERE IS NO ACTION. WHEN THE TRANSMITTER IS 
DONE, THE PROGRAM EITHER LOOPS BACK TO $OWO OR TYPES END PASS 
DEPENDING ON SWITCH SETTINGS. 


SILB: THE RECEIVER IS INITIALIZED AND PROGRAM LOOPS WAITING FOR 
RECEIVER TO FINISH, A ‘WAITING'' MESSAGE IS TYPED EVERY 60 SEC 
IF A PROGRAM CHECKS DATA IF SWITCH 
ASS IS_ TYPED IF SWITCH SETTINGS PERMIT. 
- A ‘WAITING’ MESSAGE IS TYPED 
° TRANSMITTER IS DONE PROGRAM RETURNS 
TO START OF ROUTINE. ($ILB) 
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9.34 $XLB: IF IN HALF DUPLEX THE TRANSMITTER IS INITIALIZED, 
A ‘WAITING MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION 
WHEN THE TRANSMITTER IS DONE THE RECEIVER IS INITIALIZED 
-A ‘WAITING'' MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION. 
WHEN THE RECEIVER IS DONE,DATA IS CHECKED IF SWITCH SETTINGS 
PERMIT AND END PASS IS TYPED 4 SWITCHES ALLOW. THE PROGRAM NOW 
REPEATS CYCLE ogi AT $ 


AcTION. WHEN BOTH THE RECEIVER AND TRANSMITTER ARE ONE DATA IS 
CHECKED, END PASS IS TYPED AND PROGRAM LOOPS TO $XLB DEPENDING 
ON THE SWITCH SETTINGS. 


THE RETURN TO MONITOR ROUTINE FOR END PASS AT EOP: 

LOCKS OUT INTERUPTS AND SAVES THE TRANSMITTER . ee ENABLE 

“Y AND ALL GENERAL REGISTERS. IT THEN RETURNS TO THE MONITOR 
TYPE "END PASS''. THE MONITOR CHECKS SW14 IF UP IT RETURNS 

10 ENTER:, OTHERWISE IT RESTARTS THE PROGRAM. 


ENTER: IS ENTERED FROM THE MONITOR AFTER TYPEING ‘END PASS’, 
IT RESTORES THE GENERAL REGISTERS AND THE TRANSMITTER CSR 

AS SAVED IN EOP. THE DELAY FLAG IS SET AND PROGRAM RETURNS TO 
THE SCAN ROUTINE (OWO,OWI,ILB,XLB) WHERE IT CAME FROM. 


THE INITIALIZE TRANSMIT SUBROUTINE AT STARTX: 
SETS UP THE INTERFACE AND POINTERS NECESSARY TO 
INITIATE A_ TRANSMIT OPERA 


TION. 
AFTER SETTING ‘DATA TERMINAL READY'' AND ‘REQUEST TO SEND’’ A CHECK 
IS MADE ON PARAM2 TO DETERMINE IF HALF DUPLEX OPERATION 
WAS SELECTED BY THE OPERATOR. IF IT WAS, THE 
SUBROUTINE WAITS T 


OR AR TO TOUT OCCURS 
EVERY 30 SECONDS UNTIL CLEAR TO SEND IS ASSERTED. 


THE INITIALIZE RECEIVED SUBROUTINE AT STARTR: 
SETS UP THE INTERFACE AND POINTERS NECESSARY TO 
RECEIVE A MESSAGE. 


_ TRANSMIT INTERRUPT SERVICE ROUTINE, 
XISR:, IS yg VIA TRANSMIT INTERRUPTS 
FROM THE INTERF 


A_TEST + MADE 10 SEE IF THE LAST CHARACTER 
TTED WAS 


D 
AND PRINTED ON THE TTY IF THE MONITOR TRANSMIT 
SWITCH IS SET. 


we RECEIVE INTERRUPT SERVICE ROUTINE 

RISR:, IS ENTERED VIA RECEIVER INTERRUPTS 
FROM THE INTERFACE. 
THE RECEIVED CHARACTER IS STORED IN 
THE INPUT BUFFER AND PRINTED ON THE TTY IF 
THE MONITOR RECEIVER SWITCH IS SET. 
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IF THE INPUT BUFFER IS FULL, A ‘BUFFER a wa 
PRINTOUT WILL OCCUR. THIS INDICATES THAT A 
LINE FEED CHARACTER WAS NOT RECOGNIZED 
IN THE RECEIVED DATA (WITHIN 1000 CHARACTERS). 
IF THE RECEIVED CHARACTER IS A LINE FEED, 
THE RECEIVED LOGIC IS RESET AND THE 
ves COMPLETE FLAG IS SET. 

A "RECEIVE ERROR’ IS DETECTED AT RISR:, THE 
(SR AND DBR WILL BE SAVED AND PRINTED OUT 
AFTER THE COMPLETE MESSAGE HAS BEEN RECEIVED. 


THE DATA TEST SUBROUTINE AT TESTD: IS 
ete TER A COMPLETE MESSAGE HAS BEEN 
IF A ‘RECEIVE ERROR® HAD BEEN DETECTED, 

THE CONTENTS OF THE "RECEIVE BUFFER’ AT THE 
TIME THE ERROR OCCURRED WILL BE PRINTED, 
THE DATA IS COMPARED UNTIL A ‘ALL ZEROS’ 
CHARACTER IS RECOGNIZED. ye. (ALL Sas 
CHARACTERS ARE IGNORED. IF A MISMAT 

IS DETECTED, THE COMPLETE CONTENTS OF THE 
INPUT BUFFER AND GOOD DATA IS PRINTED. 


PARAMETERS FOR THE KMC11 


DZDMOA PROVIDES THREE TESTS FOR THE KMC-11, SELECTABLE BY 
ion ae LOCATIONS PROVIDED IN ITEP. THE THREE 


1.) LINK TEST 


NORMAL ITEP OPERATION, THE ONLY RESTRICTION 

IS_IT MUST BE KMC TO KMC OR DMC. IT IS NORMAL TO GET 
SOFT ERRORS DURING THE LINK TEST. THE PARAMETERS 
FOR THE LINK TEST ARE AS FOLLOWS: 


LOW SPEED MICRO-CODE (M8201) 
HIGH SPEED MICRO-CODE (M8202) 
KMC-11 (DEFAULT) 

1 DO NOT VERIFY MICRO-CODE LOAD 


PARAM#2 FULL/HALF DUPLEX SELECTION 
BITO = 0 HALF DUPLEX 
=1 FULL DUPLEX (DEFAULT) 
PARAM#3 IS NOT USED (177777) 


2.) SECONDARY MODE TEST 
THIS TEST CHECKS THE SECONDARY STATION DELAY. 
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IF RUNNING THIS TEST, EXTERNAL “a ay IS 

THE ONLY LEGAL MODE OF OPERATION. 0 BOTH 

KMC=11°S MUST HAVE HALF=DUPLEX SELECTED AND THE 
THE PARAMETER WORD 


ONAL 
STATION AND THE OTHER THE PRIMARY STATION. 
AGAIN IT IS NORMAL TO GET SOFT ERRORS DURING 
THE SECONDARY MODE TEST AS _ IN THE LINK TEST. 
THE PARAMETERS FOR THE SECONDARY MODE TEST 
ARE AS FOLLOWS: 


PARAM#1 

BIT] = 0 LOW SPEED MICRO-CODE (M8201) 

BITi = 1 HIGH SPEED MICRO-CODE (M8202) 

BIT15 = 0 KMC-11 (DEFAULT) 

BIT15 = 1 DO NOT VERIFY MICRO-CODE LOAD 
PARAM#2 SECONDARY MODE TEST SELECTION 

BITO = 0 HALF DUPLEX(MUST BE 0 FOR THIS TEST) 

BIT1 = 1 SECODARY MODE TEST(MUST BE 1) 

BIT2 = 0 PRIMARY STATION 

=1 SECONDARY STATION 


PARAM#3 IS NOT USED (177777) 
KMC11 RESTRICTIONS 


THE KMC11 IS A DMA DEVICE AND THEREFORE THE TRANSMITTED 
AND RECEIVED DATA CAN NOT BE MONITORED ON A PER CHARACTER 
BASIS BY THE CONSOLE TTY. BECAUSE OF THIS, SWOS AND Sw06 
HAVE NO EFFECT. 


KMC ITEP IS MEANT TO BE AN ON LINE LINK TEST FOR TWO 
KMC11S. KMC_ ITEP WILL NOT WORK WITH ANY OTHER DEVICE 
RUNNING ITEP EXCEPT ANOTHER KMC11 OR SLAVE DMC11. 


BECAUSE THE KMC11 SUPPORTS DDCMP OPERATION IN THE FIRMWARE, 
THE PDP-11 PROGRAM (ITEP) IS UNABLE TO CONTROL OR KNOW EXACTLY 
WHAT IS BEING TRANSMITTED AT ANY GIVEN TIME. ALL DATA 

MESSAGES ARE ENCLOSED IN A DDCMP ENVELOPE AND THERE MAY 

ALSO BE CONTROL MESSAGES (AKS NAKS ETC) BEING TRANSMITTED. 
BECAUSE OF THIS PLEASE BEWARE IF YOU ARE SCOPING DATA. 
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J RRAAAAARAAAAEARRRRRERER EEE AREER EREREREREEERREEEEEERERERERE RH 


KMC11 INTERFACE SERVICE P. 


SERRA ARRREE RARER AREER RARER ERR RRRRERR EERE EERE EE 


11000 
“ASCIZ /KMC/ Zs ISR NAME 
160010 3;BUS ADDRESS 
zs VECTOR ADDRESS 
PRIORITY 


; PARAM * 

HINITIAL READ DATA ADDRESS 
; INITIAL _XMIT DATA ADDRESS 
sLINE SETTLE DELAY FLAG 


TADDR OF BIN TO OCT TYPE ROUTINE 
IMER 


sADDR OF START OF PROGRAM 
TX. TERM: 
; TRANSMITTER TERMINATING CHAR. 
RX. TERM: 
BYTE ;RECEIVER TERMINATING CHAR. 


55 


I 
SETTLE: 


B2016: 
TIME: 


333 


e*eeeeeee § at 


3 388 


FLAG: ‘ 
SWR: 177570 
DISPLAY:177570 


J RARAAAEAERKEREREREEREKRREEREREREREEKEREREKERKREEKREEREREERERERREEREEREKEEH 


CONSTANTS + WORKING STORAGE 


° 
FARRAR EERERAEREREEEEEREKEERERRREREREKEEEREKREAERRER ARERR 


:XMIT COMPLETE FLAG 

RCV COMPLETE FLAG 
0000 DATA SET STATUS CHANGE FLAG 
B1T13=20000 : INHIBIT PRINTOUTS 


SAVED XMIT CSR 

SAVED RCV CSR 

RCV CSR SAVED ON ERROR 
RCV DATA REG SAVED ON ERROR 
RCV CSR SAVED ON DS CHANGE 


011050 


:XMIT CHAR COUNT 
RCV CHAR COUNT 
RCV DATA ADDR. 
:XMIT DATA ADDR. 


oooooo COCOoOO 


FULL .DUPLEX=000001 
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703 SRR KEEEEREREKREKKEAEERKEKEREEKREEREEKRKEEEKEKEKEKEEKEE 


704 ; KMC11=X INTERFACE SERVICE ROUTINE 
705 DISA R AIDES ISIC IIDC ISIIIIDIOI II IOIOIDIDIOI ICID TT TTT I TT TTI 
START: 
177730 aSwR, ;SETUP MODE IN RO 
RO STRIP JUNK 


R SET 
(R2)+  ; INTERRUPT 
(R2)+  ;VECTORS 
(R2)+ ; 
(R2)+ ; 
BA, KS ;SETUP BUS ADDR INDEX 
RIV,R2 sADJUST VECTORS FOR 
#XISR,(R2) ; INPUT SERVICE ROUTINE 
014036 #RISR,4(R2) ;OUTPUT SERVICE ROUTINE 
000400 #B1T8,PARAMI1 ;BOOT MODE? 
3$ 3;BR IF NO 
015132 #IISR,(R2) ;LOAD BOOT VECTORS 
015316 #OISR,4(Rz) : 
040000 : tate | sMASTER CLEAR KMC11 
R4.R1 
017446 PC, LDRVRF 
100000 #BIT15, (R4) 
011022 I1XDA,R2 ;CALCULATE WORD COUNTS 
R3 ;CLEAR COUNT 
R3 3 INC COUNT 
TX.TERM,(R2)+  ;LAST CHARACTER? 
1$ é IF NO 
sSTORE XMIT COUNT 
sADD 10 TO IT 
;STORE REC COUNT 
;WAIT FOR RUN 
3;BR IF RUN NOT SET 
;CLEAR BASE LOAD FLAG 
;CLEAR RECEIVE FLAG 
sCLEAR XMIT FLAG 
;RUN SET? 


Sale 


aw at 


WONAUSWN—O 
RESLSESESRSESR 


> > 
bd ss ss ss SS 9 2s Ss - HS 


“N 
o 


a 
essssssssssesssssssssse 


x 


2333333 5 SS 5 aa Sa 
ear Ser See 
aro 


et os Ss Ss SS SS Ss SS Ss SS SS SS SS DS YY DY SS 


Monononoen 
N ae) 
s 


3 


4$ 

#100,2(R4) :SET OIE 

#143, (R4) zASK FOR BASE TRANSFER 

ERCSR CLEAR ERROR LOCATIONS 
:CLEAR SOFT ERROR STORAGE 
:LOCATIONS 


CLEAR BASE ERROR COUNT LOCATIONS 


017020 
017012 CLEAR RESUME FLAG 
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44 011404 017700 177434 MOV @SWR ,RO ;REREAD SWR 

761 RARER REE REAR RERRERER EERE 

762 ; ROUTINE USED TO GOTO 

763 ; SUBROUTINE DEPENDENT 

764 3 ON MODE SELECTED. 

765 RRR REE REREREREREE ERE REE 

766 

767 011410 005037 011032 GO: CLR TIME 

768 011414 005037 013402 CLR DELAY 

769 011420 005037 013406 CLR STOP 

770 011424 032700 000001 BIT #OWO .MODE 

771 011430 001402 BEQ 1$ 

772 011432 000137 011612 JMP $Ow0 

773 011436 032700 000002 1$: BIT #OWI MODE 

774 011442 001402 BEQ 2$ 

775 011444 000137 011500 JMP $Ow! 

776 011450 032700 000010 2s: BIT #I1LB,MODE 

777 011454 001402 BEQ 3$ 

778 011456 000137 011714 JMP $ILB 

779 011462 032700 000004 3$: BIT #XLB,MODE 

780 011466 001402 BEQ 4$ 

781 011470 000137 012150 JMP $XLB 

782 011474 000000 4$: HALT 

783 011476 000776 BR 72 

784 

785 

786 

787 

788 FARRAR EREREEREEEREREEEEREEKEEREREREREEEKEERERERAEEEEREEREKRRERREEEKREE 
789 3 ROUTINE USED IF ‘ONE WAY IN’’ MODE WAS SELECTED. 
790 é NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE 
791 é ONLY MODE AVAILABLE. 

792 ; “ONE WAY IN’’ MEANS THAT ONLY THE RECEIVER IS 
793 $ ENABLED. THE TRANSMITTER IS NEVER ‘‘TURNED ON’’. 
794 RARER EERE REE ERE EER ERE EERE ERE REE REE REE RR EE 
795 

796 

797 

798 011500 104416 $Ow! : KBD IN 

799 011502 004737 013500 JSR PC,STARTR 

800 011506 032700 040000 1$: BIT AMRFLG, STAT 

801 011512 001013 BNE 2 

802 011514 023727 011032 000100 CMP TIME ,4100 

803 011522 103771 BLO 1$ 

804 011524 011402 MOV @RCSR,R2 

805 011526 016403 000002 MOV XCSR(R4) ,R3 

806 011532 104001 HLT 1 

807 011534 005037 011022 CLR TIME 

ries 011540 000762 BR 1$ 

810 011542 032777 000200 177274 2$: BIT #NODAT , @SWR 

811 011550 001002 BNE 3$ 

812 011552 004737 012626 JSR PC,TESTD 

813 011556 042700 040000 3$: BIC #RFLG, STAT 

814 011562 004737 016242 JSR PC, CKBASE :CKECK KMC SOFT ERROR COUNTERS 
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032777 000020 177250 #LOOP , aSWR 
001405 4$ 

012737 011610 013404 #4$ ,BACK 
000137 012466 EOP 

000733 4$: SOW! 


ITT IT IT iti ititiii iii titi titi tititiiiiiiiiiitiiitititivitiiiiiiiii) 
ROUTINE USED IF ‘ONE WAY OUT’’ WAS SELECTED. 
NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY 
MODE AVAILABLE. 
"ONE WAY OUT’' MEANS THAT ONLY THE TRANSMITTER IS 
ENABLED. THE RECEIVER IS NEVER ‘‘TURNED ON. 


RARER ARAAREAAAEAARARERAAAEAARARARARARARAAEARAAAEREAEAAKKEKRERAKEEKKEAKEEKKKE 
013410 tt an PC, STARTX 
011032 TIME 
100000 #XFLG, STAT 
BNE 
011032 TIME #100 
@RCSR,R2 
000002 XCSR(RS) .R3 
011032 TIME 
BR 1$ 
#XFLG, STAT 


100000 : 
016242 PC, CKBASE :CKECK KMC SOFT ERROR COUNTERS 
000020 177146 OOP , aSWR 


3$ 
011712 013404 #3$ ,BACK 
0117 000137 012466 EOP 

011712 : $OwO 
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MARAAAAAALLSALALLL EAL ASAE AAAS ARERR ARR RAR RRR RRA RR RRR ARR RD DD 
ROUTINE USED IF INTERNAL LOOP BACK’ WAS SELECTED. 
NOTE THAT WHEN IN THIS MODE; HALF DUPLEX IS THE 
ONLY MODE AVAILABLE. 
“INTERNAL LOOP BACK’' MEANS THAT THE RECEIVER IS ‘‘TURNED ON’ 
AND A COMLPETE MESSAGE IS RECEIVED. IF DATA IS TO BE CHECKED 
IT 1S; IF ‘END PASS'’ IS DESIRED; IT IS GIVEN. 
THEN THE TRANSMITTER IS ENABLED. AFTER THE WHOLE MESSAGE 
IS TRANSMITTED; THE CYCLE IS REPETED AS ABOVE. 


FERRARA ARRERAERAAEREAEREREEEEAEREEEREERRAERAERERREERERERERREEERRERERERRRKEER 


011714 $ILB: 
004737 013500 

011032 

040000 


PC,STARTR 
TIME 
1$: #RFLG, STAT 
BNE 2s 
011032 b Faces 
@RCSR ,R2 
000002 ‘peecetnte: 
011032 TIME 
BR 1$ 
000200 177054 : #NODAT , @SWR 
BNE 3$ 
012626 PC, TESTD 
040000 : #RFLG,STAT 
016242 P 3;CKECK KMC SOFT ERROR COUNTERS 
000020 177030 
013404 
EOP 
177006 : : USE os DATA? 
7$ F NO 
SET POINTER 
7SET POINTER 
XDA + SETUP XMIT DATA ADDR 
(R3)+ _ V 
-(R3)  ;INSERT A FILL CHAR 
BUMP ADDRESS 
(R3)+ INSERT ANOTHER FILL 
: INSERT ZERO CHAR 
011032 : TIME 
013410 SR PC ,STARTX 
100000 #XFLG,STAT 
BNE 6$ 
011032 [pe ses 
@RCSR,R2 
000002 CRG) AS 
011032 TIME 
BR 5$ 
100000 #XFLG,STAT 
011714 $ILB 
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REE AEEERERRKKERRARAARERAERAAAERRAKAERERARAREAEERRKREEH 


ROUTINE USED IF ‘EXTERNAL LOOP BACK'' WAS SELECTE 


THEN THE RECEIVER IS ENABLED. AFTER THE WHOLE MESSAGE IS RECEIVED 
DATA WILL THEN BE CHECKED IF DESIRED AND END PASS WILL 
BE GIVEN IF DESIRED. THEN THE CYCLE IS REPEATED 
F RUNNING IN FULL DUPLEX THE PROGRAM 
OR RECEIVER AND TRANSMITTER TO 
FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER. 


LRARAKRAERERAEEAAEEAEERARAEEEREEEEREREKEEREREKERRERERREEREREEERERERREREREKEREKEKEE 


012150 $XLB: 
000002 011014 B #B1T1,PARAM2 SECONDARY MODE? 


BNE 9$ :BR IF YES 
000001 011014 a eat se tina 


013500 : PC,STARTR 
000004 011014 en SECONDARY STATION? 


BR IF NO 

017020 wee on ar Lt ay HERE? 
040000 #RFLG,STAT [WAIT FOR RECEIVE BEFORE 

° ; TRANSMITTING 
177777 017020 : #~1,TEMP2 SSET FIRST TIME FLAG 

: PC ,,STARTX 

TIME 

#XFLG,STAT 

3$ 

#RFLG, STAT 


011032 TIME ,#100 
2s 


© Be Se Se Se Be Be Be Ge Be Se Fe 


@RCSR,R2 
000002 ‘wre R3 
011032 Tine 
000002 011014 ¢ #8111 ,PARAM2 SECONDARY MODE? 


3;BR IF YES 
000001 011014 a #FULL .DUPLEX ,PARAM2 


100000 #XFLG,STAT 
013500 PC,STARTR 


BR 2s 
000002 011014 2 #B1T1,PARAM2 SECONDARY MODE? 
10$ :BR IF YES 
000001 011014 UAL LER OS 
100000 : od #XFLG,STAT 
011032 000100 [pe aes 


@RCSR,R2 
012374 016403 000002 XCSR(R4) ,R3 
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011032 
100000 
040000 
011032 
000200 
012626 
016242 
000020 


012150 
012466 


6$: 
8$: 


176412 


176372 
013404 


1 

TIME 

4$ 
#XFLG,STAT 
#RFLG,STAT 
TIME 
#NODAT , @SWR 
5$ 
PC,TESTD 
PC, CKBASE 
#LOOP ,aSWR 


$XLB 
#$XLB,BACK 
EOP 


CHECK KMC SOFT ERROR COUNTERS 
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013746 
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011056 
020000 


013026 
176154 


013107 
011022 
011020 
011040 
000002 
012720 


012624 
012624 
000002 
000002 


013402 
4 000002 


176202 
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MAAS SLSAAALALALEL EL AL ALS SD SE 


PAGE : 


: ROUTINE TO RETURN 
; TO MONITOR FOR 
3 END PASS. 
FRRAAAARERRAEEKEAERERERKEEKEEE EE 
EOP: 
STPS,PRTY7 7SET PS PRIORITY TO 7 
MOV XCSR(R4&),QTPIE ;SAVE TX CSR 
BIC #*C<TIE>,QTPIE ;CLEAR ALL BUT TX IE. 
BIC ATIE,.XCSR(R4) sCLEAR TX IE (EVEN IF IT WASN'T SET) 
MOV #ENTER, 2(SP) sSET FOR RETURN IF SW 14=1 
MOV RO,SAVRO ;SAVE REGISTER 0 
MOV R1,SAVR1 ;SAVE REGISTER 1 
MOV R2,SAVR2 sSAVE REGISTER 2 
MOV R3,SAVR3 sSAVE REGISTER 3 
MOV R4,SAVR4 sSAVE REGISTER 4 
MOV RS,SAVRS sSAVE REGISTER 5 
RTS ;RETURN TO CONTROL PROGRAM 
ENTER: 
MOV SAVRO RO ;RESTORE RO 
MOV SAVR1,R1 ;RESTORE R1 
MOV SAVR2,R2 sRESTORE R2 
MOV SAVR3,R sRESTORE R3 
MOV SAVR4 ,R4 sRESTORE R4 
MOV SAVRS ,R sRESTORE RS 
MOV #-1,DELAY 
BIS QTPIE ,XCSR(R4) zIF ORGINALLY SET; SET TX IE 
JMP @BACK 
QTPIE: 000000 
FAAAAARAAKAEKEEAAEKREREREEREEEEREREKEK 
3 SUBROUTINE TO CHECK 
3 RECEIVER DATA. 
J RARER AEERAEEKEREEEKEEEEEKERER 
TESTD: MOV ERDBR, -(SP) 2 WAS THERE A RECEIVE ERROR? 
BEQ TSTDAT 
BIT #B1T13,aSWR i INHIBIT PRINTOUTS? 
TSTDAT ‘BR YES 
TYPE MSGO eT CIOS THERE WAS A RECEIVE ERROR. RBUF= 
JSR RO,@B2016 :PRINT CONTENTS OF RBUF 
TST -(SP) 
TYPE -MSG1 3<15><12> 
TSTDAT: MOV IXDA, Ry +s SETUP XMIT DATA ADDR 
MOV IRDA, R2 3; SETUP RCV DATA ADDR 
SCAN4: CMPB (R1)+, (R2)+ DA ATA OK ? 
BEQ S ;BR IF OK 
CMPB TX. TERM, -(R1) 31S IT END OF DATA 
BEQ TESTDX ;BR IF YES 
CMPB #002,-(R2) 
BNE 
MOV R2,1$ 


0021 


KMC11 ITEP OVERLAY 


CZKMOA.P11 


lt ee ae al 
=o os 
wewww 


SESESERER 
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000000 
000437 
105712 

5 


vot he 30A (1052) 


000177 
000177 
020000 
013112 
011020 


013137 
011022 


176066 


012774 


013012 


051105 
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1$: 
2s: 


SCANS: 


RDAX: 


DERR: 


TESTDX: 


-WORD 0 

BR TESTDX 

TSTB (R2) 3 

BEQ TESTDX sBR IF Y 

CMPB #177, (R1)+ 31S IT FILL CHAR? 

BEQ SCANS ;BR IF Y 

DEC R1 ;BACKUP 

CMPB #177, (R2)+ 33S IF FILL? 

BEQ SCANS ;BR x YES 

NOP ;DATA ERROR 

BIT #B1T13,aSWR : INHIBIT PRINTOUTS 
BNE DERR IF YES 

TYPE -MSG2 +<15><12>RECEIVED DATA = <15><12> 
MOV IRDA, RDAX :SETUP DATA ADRESS 
TYPE :PRINT RECEIVED DATA 
0 sRECEIVED DATA ADDR. 
TYPE -MSG3 *<15><12>DATA SHOULD BE<15><12> 
MOV IXDA, .+10 3 SETUP ADDR. 

TYPE PRINT GOOD DATA 

IXDA 

MOVB (R1),R3 ;SETUP XMIT DATA 

MOVB -(R2), R2- sSETUP RCV DATA 
HLT+7 zDATA ERROR HALT 

TST (SP)+ POP STACK 

RTS PC ;RETURN FROM SUB/ROUT 


eASCIZ <15><12>/THERE WAS A RECEIVER ERROR. REGISTER (SEL 2) =/ 

eASCIZ <15><12> 

-ASCIZ pi ae ed poe ry ty at uae 

eASCIZ <15><12>/DATA SHOULD BE/<15><12> 

ASCII <15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER). 

“ASCIZ <15><12>/WHEN CONNECTION COMPLETE; HIT CONT IME SWITCH. /<15><12> 
“ASCIZ <15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER) ./<15><12> 


lolelelelelelelelo) 


0022 
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FERRARA AREER REREERREKRREEEEEEEEEREKEREEREEEEEERERK 


TRANSMIT INIT ROUTINE 


TEESE EIS ISIS IS IIIS IIE IOUT IIIISISIIIUIUIOIIIOUIUIII IO 


013406 STARTX: TST STOP FIRST TIME HERE? 
BNE 1$ BR IF NOT 
013162 oMSG4 : TYPE CONNECT MESS 


013406 STOP SET FIRST TIME FLAG 
017014 : ate :BASE . CNTL IN ALL DONE? 


;BR 
017014 BASEFG CLEAR FLAG 
017016 TEMP1 2GE T SET TO DELAY 
000025 017020 oes _— 
1 017016 1, TEMP ZINC DELAY 


BNE a 
017020 TEMP2 “DEC ye COUNTER 
BNE 714 BR IF NOT DONE 
000140 #140, (R4) sASK FOR XMIT BUFFER 
PC TURN 


FARRAR REREEKEREREEEREERRERAKREREEKEERAEREREREREKEREEREEREREH 


: RECEIVE INIT ROUTINE 


RARER RARER RRR REE A ERE ERERERERERRERERERERERERE RRR R KE 
013406 STARTR: TST 4 ge TIME HERE? 
BNE 1 F NOT 


$ 
013314 TYPE CONNECT MESS 
013406 OM STOP [SET FIRST TIME FLAG 
017024 1$: pA ZHAS AN on BUFFER ALREADY BEEN GIVEN 
017014 BASE AND CNTL IN ALL DONE? 
1$ BR IF NO 


017014 BASEFG CLEAR FLAG 
000144 #144, (R4) ASK FOR REC BUFFER 
017024 2s: ~A LAG * i CLEAR FLAG 


SSLFSESSLISSESEE 


J AAA ARERAEAEAREAREREREEEREERERREEREREEREREAEEEREERERERRAREEEEREKEE 


INPUT SERVICE ROUTINE 


ITIITITTL ITT ITE EEL LEL ELLE 

000002 XISR: eI #B1T1, (R4) :BASE REQ REQUEST? 
000004 8] #B1T2,(R4) 31S IT 1 REALLY A SHUT DOWN? 
014024 SR PC,4$ YES, "CLEAR ROI 
017046 : MOV WBASE ,4(R4) [LOAD BASE ADDRESS 
000006 6(R4) [CLEAR SEL 6 
017012 RESUME ; RESUME FLAG SET? 

8$ ‘BR IF NOT 
010000 #B1T12,6(R4) Z OTHERWISE SET RESUME BIT 
014024 : PC.4$ [CLEAR ROI 
000141 #141, (R4) SASK FOR CNTL I 

£ TURN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


a a a a a a ea ad a ed a da eh wd ed Dd wd od dd wd add 
RRRUVVBSaranran=sSeVRaRaves 
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1127 013632 032714 000001 1$: BIT #BITO, (R4) :CNTL I REQUEST? 

1128 013636 001430 BEQ 

1129 013640 032737 000001 011014 BIT #FULL DUPLEX, PARAM: FULL OR HALF? 

1130 013646 001403 BEQ F 

1131 013650 005064 000006 CLR 6(R4) ;SELECT FULL DUPLEX 

1132 013654 000413 BR 6$ T 

1133 013656 032737 000004 011014 5$: BIT #81T2,PARAM2 3 SECONDARY STATION? 

1134 013664 001404 BEQ 7$ F 

1135 013666 012764 006000 000006 MOV #81T10!B1T11, oni); SET SEC MODE AND HALF DUPLEX 
1136 013674 000403 BR 3 CONT INUE 

1137 013676 012764 002000 000006 7S: MOV WB1T10,6(R4) SELECT HALF DUPLEX 

1138 013704 004737 014024 6$: JSR PC,4$ TCLEAR ROI 

1139 013710 012737 177777 017014 MOV #-1 ,BASEFG :SET BASE LOADED FLAG 
1140 013716 000002 RTI RETURN 

1141 720 032714 000004 2$: BIT #B1T2, (R4) ; RECEIVE BUFFER REQUEST? 
1142 013724 001416 BEQ 3$ F NO 

1143 042700 040000 BIC #RFLG, STAT [CLEAR RECEIVE FLAG BIT 
1144 013732 013764 011020 000004 MOV IRDA, 4(R4) SLAOD REC BUFFER ADDRESS 
1145 013740 013764 011064 000006 MOY RXWC,6(R4) [LOAD REC BYTE COUNT 

1146 013746 004737 014024 JSR PC,4$ CLEAR R Ql 

1147 013752 012737 177777. (017014 MOV #~1 ,BASEFG SET FLAG 

1148 013760 000002 RTI [RETURN 

1149 013762 042700 100000 3$: BIC #XFLG,STAT [CLEAR XMIT FLAG BIT 
1150 013766 012737 177777 017022 MOV #~1,XFLAG [SET XMIT FLAG(FOR TIMEOUT ERROR) 
1151 013774 013764 011022 000004 MOV IXDA, 4 (R4) [LOAD XMIT BUFFER ADDRESS 
1152 014002 013764 011062 000006 MOV TXWC,6(R4) [LOAD XMIT BYTE COUNT 
1153 014010 004737 014024 JSR PC,4$ [CLEAR ROI 

1154 014014 012737 177777 017014 MOV #~1 ,BASEFG “SET FLAG 

1155 014022 000002 RTI RETURN 

1156 014024 142714 000040 4$: BICB #40, (R4) SCLEAR ROI 

1157 014030 105714 TSTB  —_ (R&S ‘WAIT FOR RDI TO DROP 
1158 014032 100776 BMI 72 ZBR IF STILL SET 

1159 014034 000207 RTS PC RETURN 

1161 J ARAAAAAAEAEAAKEAEKEEEEREAEREREEERRKRREEREEREEEREKEREEREREREREKEREEEEEEE 
1162 OUTPUT SERVICE ROUTINE 

1163 J AAAAAAEREAEREEREAREAEEEREEEEREKEREEAEEREKEEREEREREREEEREEKEREERKEEKEEE 
1164 

1165 014036 032764 000001 000002 RISR: BIT #BITO,2(R4) ERROR? 

1166 014044 001463 BEQ 1$ BR IF NO 

1167 014046 005737 017012 TST RESUME SRESUME FLAG SET? 

1168 014052 001413 BEQ 5$ ‘BR IF NOT 

1169 014054 022764 001000 000006 CMP WBIT9,6(R4) +1S PROC. ERROR BIT SET? 
1170 014062 001007 BNE 5$ ‘BR IF NOT 

1171 014064 142764 000207 000002 BICB #207,2(R4) [CLEAR DONE 

1172 014072 012737 177777 017014 MOV #~1,BASEFG ;SET BASEFG 

1173 014100 000002 RTI URN 

1174 014102 022764 000004 000006 5S: CMP #4,6(R4) : OVERUN ERROR? 

1175 014110 001003 BNE F NO 

1176 014112 152714 000144 BISB #144, (R4) “REQUEUE XMIT BUFFER 
1177 014116 000432 BR 4$ 

1178 014120 016437 000004 011054 3S: MOV 4(R4) ,ERCSR ;SAVE SEL 

1179 014126 016437 000006 011056 MOV 6(R4) . ERDBR + SAVE sEL6 (ERROR BITS) 
1180 014134 104400 016436 TYPE  ,KMCER TERROR MESSAGE 

1181 014140 013746 011054 MOV ERCSR,-(SP) PUSH SEL ON STACK FOR TYPEOUT 
1182 014144 004037 016034 JSR RO, $B20CT [TYPE Jf OUT 
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co 
W 


6 


016632 ,SPACE3 yINSERT 3 SPACES 
011056 ERDBR =(SP) *SPUSH SEL6 ON STACK FOR TYPEOUT 
016034 SR RO. $B20CT ‘TYPE IT OUT 


1 
174650 ST aSwR :CHECK BIT 15 
+4 SKIP HALT IF = 0 
sHALT IF SWR15 = 1 
011056 ERDBR :CLR ERDBR LOCATION 
000207 #207 ,2(R4) 7CLEAR DONE 
[RETURN 
 paataaaad zREC DONE? 


: F NO 
#RFLG, STAT ;SET REC DONE FLAG 
#207,2(R4) a DONE 


;RETURN 
#XFLG,STAIT SET XMIT DONE FLAG 
XFLAG CLEAR XFLAG 
#207,2(R4) CLEAR DONE 

sRETURN 


ee ed ed st a sd td ot SS SS 2 es SS 
BELKIRAVLESELEALK 


FARRAR EREEEEEREREREKEREREREKRREEEKREEEEEKERKERERKEREKEEKE 


: ENTER HERE IF BOOT MODE WAS SELECTED 


FEAR AAAERAAEKERRERREREEREAREEEREKRRAEEAKAEEEREREREEREREEREEREKERKHKEEKEE 


011012 BOOT: #B1T10!BIT9,PARAM1 ; DETERMINE WHICH BOOT MODE 
AUTORG ;BR IF AUTO MODE, ORIGINATING STATION 
011012 ere -PARAM1 


AUTBOO :BR IF AUTO MODE, BOOT STATION 
011012 #B1T9,PARAM1 
MANORG 


BR IF MANUAL MODE, ORIGINATING STATION 
-BOOMSG MANUAL MODE, BOOT STATION 
014314 000777 BR . [WAIT FOR MANUAL BOOT 


JARRE EREREREEAEREREREREREREREKEEERERERREREEEREEKREEKEKEEKERERREEE 


AUTOMATIC MODE ORIGINATING STATION 


PITTI IT TITER TELL T EEE LLL LLLLLLLL LLL 


014316 2701 : #MOP1+1 ,R1 LOAD MOP1 MESSAGE WITH 
014322 MOVB PASSWORD FOUR TIMES 


200 
201 
202 
203 
204 
205 
206 
207 
208 
209 


NMOMINNNPYNINN ro 
3 9 939 3 I 
WONAUSWN—O 


monn 
RARWNS 


PARAM , (R1)+ 
BASEFG i1S oe Semel DONE ? 


yh | 

:CLEAR LOCK FLAG 
#2200° SEL6 MAINT os BIT (MOP) 
#141, (R4) ASK FOR CNTL IN 
BASEFG ‘aR ir .. IN DONE? 


BASEFG CLEAR Lock FLAG 
RFLAG SCLEAR RECEIVE FLAG 
052714 000144 #144, (R4) ASK FOR REC BA/CC 





N 
KMC11 ITEP OVERLAY MACY11 30A(1052) 31-MAY-78 16:08 PAGE 27 
CZKMOA.P11 24-MAY-78 15:15 


014410 017014 2s: :1S ae ed DONE? 
014414 2s F NO 


017014 CLEAR LOCK FLAG 

017022 XFLAG CLEAR XMIT FLAG 

015606 017032 ; 

000005 017034 #5,SEL6 

000140 #140, (R4) 3 

000005 017016 #5, TEMP) SET UP DELAY COUNT 

013402 DELAY 

017024 : +RE oF VED ANYTHING? 
BNE YES 


4$ 
013402 DEC DELAY COUNTER 
BNE 3$ WAIT TO RECEIVE 
017016 DEC SECOND COUNT 
3$ :BR_IF NOT DONE DELAY 
017022 WAS XMIT COMPLETED ? 
0145 ;BR_IF YES, SEND MOP1 AGAIN 
014510 000000 ERROR, MOP1 WAS NEVER SENT OUT 


;CHECK TO SEE IF RECEIVED MESSAGE IS MOP2 


014512 015614 : #MOP2 .R1 sSTARTING ADDRESS OF MOP2 
011020 IRDA,R2 RECEIVE BUFFER ADDRESS 


R 

(R1)+,(R2)+ > COMPARE DATA 

1$ :1F NOT MOP2 TRY AGAIN 

R3 DATA OK, our COUNTER 
000004 = :DONE YET? 


BR IF NO. 
015512 . PC MP3 31T WAS MOP2, SO SEND MOP3 


FEAR AAAAEEERAAREKEEKEKEEEKEEEREKEREEERREERAEKKEKEKEEEKREEREKEREREEEREEK 


AUTOMATIC MODE BOOT STATION 


: 
LRA RRR ERR ER ERE RARER REE RRR ARERRRE 
017014 : sBASE COMPLETED? 
E 7BR_IF NO 


017014 sCLEAR LOCK FLAG 
017030 
017024 


000144 REC BA/CC 
017030 : MF LAG ARE WE vie MAINT MODE? 


BNE BR IF YE 
017024 2s: DID WE RECEIVE ANYTHING? 
sYES REQUEUE RECEIVE BUFFER 
;KEEP ON TRUCKIN 


FERRARA RAEKEEEEREKEREREEEEEARKERERERAEREREEERREREREERREREREEEE 


MODE ORGINATING STATION 


TTT T TITEL ELT ETE ELLE LLL Lis 


014610 017030 : MF LAG CLEAR MAINT FLAG 

014614 017026 CL SF LAG CLEAR DDCMP START RECEIVED ERROR FLAG 
014620 017014 3 BASEFG ;BASE LOADED? 

014624 7$ 7BR_IF NO 

014626 017014 BASEFG zRESET FLAG 
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017034 SEL6 ;LOAD SEL6 FOR FULL=DUPLEX 
000141 #141, (R4) sASK FOR CNTLI 
017014 : ati :CNTLI DONE? 


3;BR IF NOT 
(17014 BASEFG ;RESET FLAG 
017024 RFLAG ;CLEAR RECEIVE FLAG 
000144 #144, (R4) ASK FOR REC BA/CC 
017026 : SFLAG Or pat ERROR? 


4$ ;BR I 
040000 #B1T14,(R4) Fy AE mo KMC 
(R4) RUN SET 


2s BR IF NO 
017026 SFLAG CLEAR FLAG 
017014 BASEFG : CLEAR LOCK FLAG 
000100 #100,2(R4) E 
#143, (R4) 
BASEFG 


SESSGREN se sess 


000143 
017014 
3$ 
017014 BASEFG FLAG 
017034 SEL6 SET UP FOR FULL~DUPLEX 
000141 #141, (R4) zASK FOR CNTLI 
017014 : BASEFG :CNTLI FINISHED? 
9$ :BR_IF NOT 
017014 BASEFG CLEAR FLAG 
017024 RFLAG :CLEAR RECEIVER FLAG 
000144 #144, (R4) ASK FOR REC BA/CC 
017030 : MFLAG SARE ¥ IN MAINT MODE? 


1$ :BR NO 
040000 MOV #B1T14, (R4) INITIALIZE KMC 
(R4) RUN SET? 


10$ -BR_IF NO 
017014 BASEFG CLEAR LOCK FLAG 
000100 #100,2(R4) SET INT ENABLE 
00014 #143, (R4) zASK_FOR BASE 
017014 : BASEFG sBASE DONE? 


11$ BR IF NO 

017014 BASEFG : CLEAR FLAG 

002400 #2400,SEL6 

000141 #141, (R4) 3 OR CNTLI 

017014 : BASEFG SCNTLI FINISHED? 
12$ BR IF NOT 

017014 BASEFG ZCLEAR FLAG 

017024 RFLAG CLEAR RECEIVER FLAG 

000144 #144, (R4) sASK_FOR REC BA/CC 
RFLAG HAVE WE RECEIVED ANYTHING? 
5$ :BR IF NO 


sCHECK TO SEE IF RECEIVED MESSAGE IS MOP2 


#MOP2 ,R1 s;MOP2 STARTING ADDRESS 
IRDA,R2 sRECEVE BUFFER ADDRESS 
R3 ; CLEAR yl 

(R1)+,(R2)+ ; COMPARE DAT 

11$ zIT_ISN'T mOP2, TRY AGAIN 
R3 DATA ee BUMP COUNT 
003703 #4 ,R3 DONE Y 


WANNA WWWANAW 
=o SS 
WONAUSWN—O 


BUSLSSENNS 


WA 
ee) 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SH 
ricco 
SERRA 


ee 
N— 


SEES 


EE 


ak and ad a a eed ad ed 
Soon 


W 
vw 
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015124 001372 BNE 6$ :BR IF NO 

015126 004737 015512 JSR PC ,MP3 31T WAS MOP2, SO SEND OUT MOP3 


FARRAR RERRRRRRARERERR REE EREREERERERERREERERREREERERRER EERE 


INPUT INTERRUPT SERVICE ROUTINE (BOOT MODE) 


THGRIA CRISIS IIIT IOI IO TT TTI TTT TT TT TEE 
015132 000002 IISR: ie at 71S IT A BASE REQUEST? 


017046 000004 MBASE ,4(R4) YES, LOAD BASE ADDRESS 
poe ene 6(R4) sCLEAR SEL6 


01 CLEAR RQI 
177777 =017014 


C 3 
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a3 
3 


WUAW 
WIV 
wr 


Was 
Near 


wv 
Wolo 


SAIN ISSESES SELES 


a 
o 


000001 
017034 
015304 
177777 
000004 


011020 
000010 
015304 
177777 
017032 
017034 


015304 
177777 


000040 


000006 
017014 


000004 
000006 


017014 


000004 
000006 


017014 


PC,4$ 
#-1 ,BASEFG 
WBITO, (R4) 
SEL6,6(R4) 
PC,4$ 

#~1 ,BASEFG 
#BIT2, (R4) 
3$ 

IRDA, 4(R4) 
#10,6(R4) 
PC,4$ 

#~1 ,BASEFG 


SEL4,4(R4) 
SEL6,6(R4) 


PC,4$ 

#-1 ,BASEFG 
#40, (R4) 
_ 


SET FLAG 
;RETURN 
:IS i CNTL IN? 


LOAD et FOR CNTLI 
CLEAR RQI 
7SET FLAG 


RETURN 
i1s IT RECEIVE REQUEST? 
YES, LOAD REC BA 


[CLEAR ROI 
“SET FLAG 


:RETURN 

:XMIT REQUEST, LOAD XMIT BA 
sXMIT CC 

CLEAR RQI 

SET FLAG 

;RETURN 

CLEAR RQI 

sRDI CLEAR? 


BM 3NO 
015314 PC RETURN 
DREAD IIDIOIIOIOIIEI III IOS IOS IOI IOI TOT TOT TOT TTT TE 
: OUTPUT INTERRUPT SERVICE ROUTINE (BOOT MODE) 
[RRRARERREAREEREREEKEREREREREREREERREKKREREREREREKKREKEEEEEEERRREEEEE 
015316 032764 000001 000002 OISR: #B1T0,2(R4) ; ERROR? 
000010 000006 #10.6(R4) :YES, MAINT MODE ENTERED? 
177777 017030 #-1,.MFLAG :YES. SET MFLAG 
000200 000006 #200,6(R4) [DDCMP START RECEIVED ERROR? 
177777 017026 #-1,SFLAG SYES,SET SFLAG 
5$ "RETURN 


000004 011054 : 4(R4) ,ERCSR 
011056 MOV 6(R4) ,ERDBR 
ERROR MESSAGE 


016436 KMCER 
011054 MOV ERCSR (SP) ‘PUSH SEL4 ON STACK FOR TYPEOUT 
016034 $820CT :TYPE IT OUT 


SIPSSISSSSRSRES SSIS 


WWW 
Oo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
13 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


$3 


sSAVE SEL4 
SAVE SEL6 (ERROR BITS) 
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015416 


016632 PACE s INSERT 3 SPACES 
011056 ERDBR asp) PUSH SEL6 ON STACK FOR TYPEOUT 
016034 $B20CT PPE I 


173402 TST ;CHECK BIT 15 
;SKIP HALT IF = 0 
SHALT IF SWR15 = 1 
011056 3 Te LOCATION 


5$ sRET 
000004 000002 3s: #B1T2,2(R4) :RECEIVE DONE? 
177777 017024 MO rl, ,RFLAG :SET RECEIVE FLAG 
177777 017022 4$: MOV #-1,XFLAG :XMIT DONE, SET XMIT FLAG 
000207 000002 5$: 4207, 2(R4) [CLEAR DONE 
015510 000002 RTI RETURN 
~y PSaRSeSaAAALALALALLSASLE SSSA SALAS ESE SELES ESLER EERE RR RRR SS RRR RSA SSS SS 


SUBROUTINE TO SEND MOP3 MESSAGE 


ITIII TITTLE TLL TE EEL L ELLE LLL LLL 
015512 017014 MP3: :1S iy OK TO REQUEST 
MP3 F NO 
017014 CLEAR LOCK FLAG 
CLEAR XMIT FLAG 
017032 #MOP3,SEL4 ;MOP3 ADDRESS 
017034 
FOR XMIT BA/CC 
013402 START DELAY COUNT 
017022 : 3XMIT DONE? 
2s 7BR IF YES 
013402 :DEC -y COUNT 
BNE 1$ BR IF NO 
ERROR, MOPS SEND NOT DONE 
70K MOP3 SEND 
;POP STACK (ENTERED BY JSR) 
staat ALL DONE HIT CONT TO DO IT AGAIN 


6.0,0.0,0 


10,12.,1,0 
0.0.6.0.6.0 
: IMAGE OF PROGRAM TO BE DOWN LINE LOADED 


lad at TIMEOUT VECTOR TO HALT 
#1000, SP 7 SET ¥. STACK 
#177560 ,R1 SET T 
PC ,RO MAKE ADDRESS PIC 
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#<MSG~.>,RO aeeae SS OF MESSAGE 
1$: 4(R1) ;READY SET? 


1$ :BR IF NO 

(RO) +,6(R1) ;TYPE A CHARACTER 

$ ;KEEP TYPING IF NOT ZERO 
000024 #26 ,ah24 SET UP POWER FAIL VECTOR 

ar26 MAKE SURE T BIT CLEAR 


BR . 
goetlt : ° <12><15>/BOOT MESSAGE was RECEIVED SUCCESSFULLY - END OF TEST!!/ 


eASCIZ <12><15>"'ERROR IN LOADING MICRO-CODE''<15><12> 


- EVEN 


RII III RIOT IIIT ITO TOTO RTT TR RRR ik 
sBINARY TO OCTAL (ASCII) AND TYPE 
7-7 Pinna HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, ~(SP) NUMBER TO BE — 
RO, $820CT :CALL_FOR TYPEOU 
N :N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


M :M=1 OR ‘, 
=TYPE LEADING ZEROS 
S OesUPPReSS LEADING ZEROS 


eames HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST $8SOCT OR $82016 


MOV 27 (SP) 
JSR RO, RO. $8201 


:$82016---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUM, = (SP) 
RO,$82016 


12037 016241 $820CT: (RO) +, SOMODE +1 PICKUP THE NUMBER OF DIGITS TO TYPE 
ihe 016237 oo GET THE ZERO FILL SWITCH 
: 
1 


BR $820 
2737 000001 016237 $82016: #1, SOF ILL SET THE ZERO FILL SWITCH 
2737 000006 016241 MO #6, SOMODE +1 zSET FOR SIX(6) DIGITS 


1 
1 
1 
1 
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3434 000005 016236 $8201: #5 ,SOCNT ;SET THE ITERATION COUNT 
MO ;SAVE R3 


R5 
016241 * pete SGET THE NUMBER OF DIGITS TO TYPE 


000006 : SUBTRACT IT FOR MAX. ALLOWED 
016240 R4 , SOMODE SAVE IT FOR USE 

016237 . :GET THE ZERO FILL SWITCH 
000010 (SP) ,R E INPUT NUMBER 


CLEAR THE OUTPUT WORD 
sROTATE MSB INTO *'C’’ 


[GO DO MSB 
:FORM THIS DIGIT 


BVRARWN SSO 


: ROL R GET LSB OF baits siGit 
016240 i TYPE THIS DIGIT? 
BP IF NO 


7$ 
177770 ° :GET RID OF JUNK 
4$ STEST FOR 0 
3 SUPPRESS THIS 0? 
:BR YES 


IF 
DON'T SUPPRESS ANYMORE 0°S 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
:GO ig wee DIGIT 


> COUNT 
:BR 14 MORE TO DO 
F DONE 
INSURE LAST DIGIT ISN'T A BLANK 
G0 DO ve LAST DIGIT 
RESTORE R 
RESTORE R4 
sRESTORE R3 
SET THE STACK FOR RETURNING 
; RETURN 


ORAGE 4 gh. DIGIT - 


a de td a 2d od 2d a a a 2 ts SS os tt 
SBYEREAVYSSY 


rs 
ran) 


ey 
MVM 
RAR 


VI“ 
ON 


WITCH 
NUMBER OF DIGITS TO TYPE 


Adhd 017012 : #~1 ,RESUME SET RESUME FLAG 
C BASEFG — BASEFG 
#146, (R4) SHUT DOWN KMC TO UPDATE BASE TABLE 
BASEFG [SHUT DOWN DONE? 
1$ BR IF NO 
#BI1T14, (R4) {MASTER CLEAR KMC 
#B1T15, (R4) 
(R4) zRUN SET? 


BP 2s BR IF NO 
017014 BASEFG CLEAR BASEFG 


SEESREREES 


oad a and cn ad ad ee nd ed 0 de ed cd ed ened nd end nd 
Oo 


Wa ealaleal 
RANIS 
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052714 000143 #143, (R4) sASK_FOR BASE REQUEST 
005737 017014 3$: a ;BASE LOADED? 


BE :BR_IF NO 
000100 000002 #100,2(R4) SET INTERRUPT ENABLE 
017012 RESUME CLEAR RESUME FLAG 
000003 #3,R2 sLOAD BASE OFFSET TO ERROR COUNTS 
R1 R1 IS OFFSET INTO SOFTWARE TABLE 
017046 017036 5$: BASE (R2), -ERRENT (1) of wes THIS PASS? 


(R1)+, (R2)+ SINC INDEXS 
000013 #13,R2 : DONE? 
BNE 5$ :BR IE NO 


PC URN 
016507 : - SOFT 3 TYPE SOFT ERROR MESSAGE 
000003 MOV 


SEERRRReeSy 


as, R2 ;LOAD BASE OFFSET TO ERROR COUNTS 
SOFTWARE TABLE OFFSET 
017046 : BASE(R2). ERRCNT(R1);SAVE ERROR COUNTS 
6 BASE(R2),-(SP) ;PUSH ON STACK FOR TYPEOUT 
#°(<377>,(SP) CLEAR HI-BYTE 
- plmmnets : TYPE IT OUT 


AvZs 


KAR 


~SPACE3 s INSERT 3 SPACES 
(R2)+,(R1)+ 3 INC INDEXS 
#13,R2 ; DONE? 

:BR IF NO 
PC ;RETURN 


aS Ss Ss Ss Ss Ss SS SS SS SS YS SS SS YF YS OS 


MMMM 


BS 


041412 : <15><12><12>/CONTROL OUT ERROR/ 
wt nett Fes SEL6/ 
<15><12>/ 
<1$><]5><12>/S08T ERROR - DDCMP ERROR COUNTS ARE NON ZERO/ 
eat need BASE+3 THRU BASE+12/<15><12><0> 


ASC 
052516 BOOMSG: .ASC £15><12>/MANUALLY BOOT KMC NOW (VIA M9301-YJ)/ 
044522 : <15><12>/ORIGINATING STATION HAS COMPLETED BOOT SUCCESSFULLY - END OF TE 


;BASE LOAD FLAG 


Ooooo°oo°0o°oo 
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31-MAY-78 


ge 
: THIS ROUTINE IS DESIGNED TO LOAD MICRO CODE INTO THE 
sMICRO=-CPU AND VERIFY THAT IT WAS LOADED PROPERLY. 


CALL = JSR PC, LDRYRF 
LIF A_LOAD ERROR IS DETECTED,AN ERROR WILL BE TYPED OUT. 


sROUTINE *‘SETMAP*’ IS CALLED IN ORDER TO DETERMINE WHICH 
VERSION OF MICRO-CODE TO LOAD. 


017446 


017566 
017572 
017574 
017600 


017606 
017610 
017614 


012711 


040000 
140000 
017574 
000004 
000006 
002000 
022000 
002000 


017574 
011012 


000004 
002000 
000006 


015774 
002000 
040000 
023650 
000002 
027654 


011012 


#B1T14,(R1) 


#B1T15/B1T14, (RI) 


PC,SETMAP 
(Ri) 


RO,4(R1) 
(Re) + 6(R1) 


#B1T10, (R1) 
~ bea igiTi0, cri} 


0 
#2000 ,RO 
3$ 
PC,SETMAP 
PARAM] 
10$ 
RO,4(R1) 
#81710, (R1) 
6(R1),(R2)+ 
9$ 
-MLDER 
RO 
#2000 ,RO 
#B1T14,(R1) 
PC 


M#LOMAP ,R2 
eirt -PARAM1 
MHIMAP ,R2 

PC 


;MASTER CLEAR + Bhs 
zAND SHU 


T IT DOWN. 
;CLEAR UPC POINTER. 
SET MICRO-CODE POINTER IN R2. 
; START WITH THE CLEAN WORLD. 
LOAD CRAM ADDRESS. 
:LOAD INSTRUCTION WORD. 


WRITE IT.. 
- UPC POINTER. 
OVER F LOW? 
:BR 


IF NO. 
SET MICRO-CODE POINTER IN R2. 
VERIFY MICRO-CODE 


NO. 
SET UPC POINTER. 
START WITH THE CLEAN WORLD. 
OAD CRAM ADDRESS. 


SET ROM 0. 
; CHECK IF RIGHT? 
F GOOD. 


LOADING ERROR. 
BUMP UPC POINTER. 
:1S IT DONE? 


3;BR IF NO. 
sMASTER CLEAR KMC-11. 
RETURN. 


LOAD ADDRESS OF LOW SPEED. 
z:1S IT HIGH SPEED? 
BR IF NO. 


[LOAD HIGH SPEED ADDRESS. 
RETURN TO CALLER. 
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014544 


0 
012554 MS 013137 
033654 000 


DETECTED: O 
DSKZ : CZKMOA, DSKZ : CZKMOA/SOL=CZKMOA.MAC ,CZKMOA.P11 
RUN-TIME: 6 8 .1 SECONDS 


RUN-TIME RATIO: 217/14=14.6 
CORE USED: 17K (33 PAGES) 


SSRISe 


062 
040 
00 


TESTDX 013022 
TIE = 000100 





